home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 63 / 063.d81 / puzzle boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  41 lines
  1. 10 poke53281,.:poke53280,12:print"[147]"
  2. 20 gosub260
  3. 30 sys57812"puzzle font",8,0:poke780,0:poke781,0:poke782,48:sys65493
  4. 40 poke53272,29
  5. 50 b$="      [182][158][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][181]"
  6. 60 c$="                      "
  7. 70 print"      [172][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][187]"
  8. 80 fori=1to7:printb$:next
  9. 90 print"      [188][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][190]"
  10. 100 poke214,8:print
  11. 110 printc$
  12. 120 printtab(9)"   [212]he [208][213][218][218][204][197] [208][193][199][197]    "        "
  13. 130 [153]c$
  14. 140 [153][163]9)"cont atn open(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)cont val(NULL)len(NULL)(NULL)(NULL)right$(NULL)val "
  15. 150 [153]c$
  16. 170 [151]147,0:[158]57812"windows.o",8,1:[158]62631
  17. 172 [151]147,0:[158]57812"file handler.o",8,1:[158]62631
  18. 174 [158]33136,28000,"music1"
  19. 176 [151]147,0:[158]57812"sid player",8,1:[158]62631
  20. 178 [158]33133,28000,57344,5120
  21. 180 [158]33130,57344,57344[170]5119,.
  22. 182 [158]33130,49152,51126,.
  23. 190 [159]15,8,15,"r0:puzzle page 63=puzzle page 63":[132]15,er:[160]15
  24. 200 [153]"stopload"[199](34)"puzzle page 63"[199](34)",8"
  25. 210 [153]"run"
  26. 220 [151]43,1:[151]44,64:[151]16384,0
  27. 230 [151]631,13:[151]632,13:[151]633,13:[151]198,3
  28. 240 [162]
  29. 250 :
  30. 260 [151]214,15:[153]
  31. 270 [153]"  frefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  32. 280 [153]"  print                                    "
  33. 290 [153]"            (NULL)left$val (NULL)(NULL)(NULL)(NULL)(NULL)val (NULL)atnchr$val           "
  34. 300 [153]"     peeky peekarbara left$. (NULL)chulak (c) 1989   "
  35. 310 [153]"        (NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #63     "
  36. 320 [153]"      (NULL)ubscriptions 1-800-831-2694    "
  37. 340 [153]"                                      "
  38. 350 [153]"  pospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos"
  39. 360 [142]
  40. 370 [159]15,8,15,"s0:puzzle boot":[160]15:[148]"0:puzzle boot",8:[128]
  41.